home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / util / dir / managers.lha / Managers / Cli_Master / loader.g < prev    next >
Text File  |  1997-01-14  |  2KB  |  113 lines
  1. G4C
  2.  
  3.  
  4. winbig -1 -1 280 90 ""
  5. wintype 00001000
  6. winout nil:
  7.  
  8. xonopen
  9. setwintitle loader.g ""
  10. ifexists window climaster
  11.     update loader.g 1 "Right Mousebutton To Close"
  12. endif
  13.  
  14. xonrmb
  15. guiclose loader.g
  16.  
  17.  
  18. box 0 0 0 0 out icondrop
  19. box 25 8 230 60 in icondrop
  20. ctext 70 22 " CLI-Master v1.1 " topaz.font 8 2 0 000
  21. ctext 60 35 "by G.Maddox Nov 1996" topaz.font 8 1 0 000
  22. ctext 55 48 "Written using Gui4Cli" topaz.font 8 3 0 000
  23. ctext 65 58 "© D.Keletsekis 1996" topaz.font 8 3 0 000
  24.  
  25.  
  26. text 20 71 240 12 "Initializing - Please Wait" 29 BOX
  27. gadid 1
  28. gadtxt center
  29.  
  30.  
  31. xroutine filetype
  32. extract cmst_select file cmst_temp
  33. extract cmst_temp unquote cmst_temp
  34. cutvar cmst_temp copy char 4 cmst_pfix
  35. extract cmst_temp ext cmst_sfix
  36. if $cmst_pfix == "mod."
  37.     run '$DEF.MOD $cmst_select'
  38.     setwintitle climaster 'Playing.... Press BACKSPACE to stop'
  39.     return
  40. endif
  41. docase $cmst_sfix
  42.     case == ".smon"
  43.         run '$DEF.MOD $cmst_select'
  44.         setwintitle climaster 'Playing.... Press BACKSPACE to stop'
  45.         return
  46. break
  47.     case == ".info"
  48.         cli '$DEF.ICON $cmst_select'
  49.         return
  50. break
  51.     case == ".txt"
  52.     case == ".doc"
  53.     case == ".readme"
  54.     case == ".rexx"
  55.     case == ".bat"
  56.     case == ".asc"
  57.     case == ".ascii"
  58. if $cmst_select H= "PP"
  59.     run '$DEF.PP $cmst_select'
  60.     return
  61. endif
  62.         guiopen reader.g
  63.         return
  64. break
  65. endcase
  66. docase $cmst_select
  67.     case H= "FORM????ILBM"
  68.     case H= "FORM????ANIM"
  69.     case H= "GIF"
  70.         run '$DEF.GFX $cmst_select'
  71.         return
  72. break
  73.     case H= "??????JFIF"
  74.         run '$DEF.JPG $cmst_select'
  75.         return
  76. break
  77.     case H= "FORM????8SVX"
  78.     case H= "RIFF????WAVEfmt"
  79.         run '$DEF.8SVX $cmst_select'
  80.         return
  81. break
  82.     case H= "PP"
  83.         run '$DEF.PP $cmst_select'
  84.         return
  85. break
  86.     case H= "FORM????MODLVER"
  87.     case H= "MMD?"
  88.         run '$DEF.MOD $cmst_select'
  89.         setwintitle climaster 'Playing.... Press BACKSPACE to stop'
  90.         return
  91. break
  92.     case H= "@"
  93.         run '$DEF.GUIDE $cmst_select'
  94.         return
  95. break
  96.     case H= "????????"
  97.         ezreq "What do you want to do with this file?" "Read|Execute|Run|Abort" opt
  98. if $opt = 1
  99.     guiopen reader.g
  100. endif
  101. if $opt = 2
  102.     cli 'c:execute $cmst_select'
  103. endif
  104. if $opt = 3
  105.     guiopen runreq.g
  106. endif
  107. if $opt = 0
  108.     stop
  109. endif
  110. break
  111. endcase
  112.  
  113.